EditPat and all files in this distribution are (C)opyright 1994 by Ralf Degner
The Oberon System is (C)opyright 1990-1994 by Institut f
r Computersysteme, ETH Z
rich.
Disclaimer:
The author takes no responsibility for any result of the use of this progrm. You use it by your own risk.
How To Use:
First you have to design a pattern file (use Pat as suffix) with EditPat. Remember the number of every pattern. Now You can use DisplayPat to display the patterns on the screen. What to do using DisplayPat in Your program:
First You have to IMPORT the module DisplayPat. The pattern data is linked to an object, called DisplayPat.Object. Define a variable of this type, let`s call it O. The Object is only a POINTER, so you have to create the real object data with NEW(O). Now You have a full Object, but there is no data linked to it. Use the method Install ( O.Install ) to fill the Object with the pattern data from a file. Now You are able to display Your patterns. The display methods have the same names, as you know them from the procedures in the module Display. But here, You do not specify the pattern by a Display.Pattern, here You use the number of the pattern in the file. You are able to open more than one object with data from different files.
In most methods from DisplayPat you can define a color (col). If you want to see the original colors, use DisplayPat.OriCol as col. An other color will display all pixels of the pattern in this color (multicolor goes away). It is possible, that the original of the patterns do not fit to your special system. There are two ways to handle this. First, You can modify the colors of your system (with Colors.Open ). The second is to force the Object to display not the original colors. An example will show this: in a patternfile color number 4 stands for yellow, but at your system, yellow has number 10. With the line O.ColorMap[4]:=10; the object will show yellow, where yellow should be. Look at the Demo.
Here is a list of all methods of the object DisplayPat.Object:
PROCEDURE (o: Object) Install (Name: ARRAY OF CHAR; Msg: BOOLEAN);
Install loads the pattern data from disk with the filename Name und links it to the Object. If Msg is TRUE, DisplayPat will show an error message at the System.Log, if something goes wrong with the Object. I included this, because i hate konstructors in C++ that do not tell me if something is wrong.
CopyPattern copys a pattern with the number PatNr in Color col at position (X, Y) at the screen. Be sure that the pattern will fit to the screen. If there is no real reason against it, use CopyPatternC instead of CopyPattern.
CopyPatternC does the same as CopyPattern, but the pattern will only be displayed in the Frame f. If the pattern does not fit to the frame, it will be clipped. Use CopyPatternC instead of CopyPattern.
ReplPattern fills the rectangle at position (X, Y) with hight H and width W with the pattern with number PatNr. Be sure, that the rectangle will fit in the screen. Use ReplPatternN or ReplPatternC, not ReplPattern.
The same like ReplPattern, but the rectangle will be cliped to the Frame f. X0 and Y0 gives an offset, where to begin in the pattern. Use ReplPatternN instead of ReplPatternC.
ReplPatternN does the same like ReplPatternC, but without using Display.ReplPatternC. There are problems with Display.ReplPatternC on some implementations, so ReplPatternN is the better way. It could be a bit slow on some systems (especial by Windows), but it should run on every system with patterns of any size.
PROCEDURE (o: Object) GetPatternSize (PatNr: LONGINT; VAR w, h: INTEGER);
GetPatternSize gives the size of the pattern PatNr in w and h back.
With GetPattern You will get the Display.Pattern of the pattern PatNr. This will run only if the pattern has only one color and if the width of the pattern is <= 32.
There are two porcedures in DisplayPat, that should help displaying text in non-text-frames. First you have to open a Font with Fonts.This(FontName). Then create a Texts.Writer, let`s call it W. Write to W with the normal procedure you know, for example Texts.WriteSting(W, "The Text !"). If You throw the buffer of W (W.buf) to PlotText, the Text will appear at the Screen.
PlotText prints the text in the Buffer with using Font, Color col and mode at position XPos, YPos to the Frame f. XPos means the base line of the font. PlotText stops, if it finds the end of the text or a linefeed. After PlotText the Buffer is empty.
(.txt)